;redcode-94
;name Blizzard
;author Anton Marsden
;strategy QS -> Paper
;assert CORESIZE==8000
;kill Blizzard
 
ORG s
 
data EQU (s-1)
 
s:       
q FOR 4
      sne.i  $s+400*q,$s+400*q+100
      seq.i  $s+400*q+200,$s+400*q+300
      mov.ab #s+400*q-f,$f
ROF
      jmn.b  $w,$f
 
q FOR 4
      sne.i  $s+400*(q+8),$s+400*(q+8)+100
      seq.i  $s+400*(q+8)+200,$s+400*(q+8)+300
      mov.ab #s+400*(q+8)-f,$f
ROF
      jmn.b  $w,$f
 
q FOR 4
      sne.i  $s+400*(q+4),$s+400*(q+4)+100
      seq.i  $s+400*(q+4)+200,$s+400*(q+4)+300
      mov.ab #s+400*(q+4)-f-100,$f
ROF
 
f:    jmz.b  $p,#0       
      add.ab #100,$-1        
w:    sne.i  $data,@f
      djn.b  $-2,#4
      mov.i  $bomb,@f
      sub.ab #24,$f
      mov.i  $bomb,@f
      add.ab #8,$f
      djn.b  $-2,#7
      jmp.b  $p,>2000
      sne.i  }0,{0
      seq.i  {0,{0
      jmp.b  }0,}0
      dat.f  #0,#0
      dat.f  #0,$0
      dat.f  #0,@0
bomb: dat.f  #0,*0
      dat.f  #0,}0
      dat.f  #0,{0
      dat.f  #0,<0
      dat.f  #0,>0
 
      dat.f  $0,@0
      dat.f  $0,*0
      dat.f  $0,}0
      dat.f  $0,{0
      dat.f  $0,<0
      dat.f  $0,>0
 
      dat.f  @0,@0
      dat.f  @0,*0
      dat.f  @0,}0
      dat.f  @0,{0
      dat.f  @0,<0
      dat.f  @0,>0
 
      dat.f  *0,*0
      dat.f  *0,}0
      dat.f  *0,{0
      dat.f  *0,<0
      dat.f  *0,>0
      
      dat.f  }0,}0
      dat.f  }0,{0
      dat.f  }0,<0
      dat.f  }0,>0
      
      dat.f  {0,{0
      dat.f  {0,<0
      dat.f  {0,>0
      
      dat.f  <0,<0
      dat.f  <0,>0
      
      nop.f  >0,#0
      nop.f  >0,$0
      nop.f  >0,@0
      nop.f  >0,*0
      nop.f  >0,}0
      dat.f  >0,>0
 
ASTEP EQU 3510; mod-10
BSTEP EQU 2365; mod-5
CSTEP EQU 3315; mod-5
 
p:    spl.b  $1,>4000
      spl.b  $1,>6000
s1:   spl.b  @s1,}ASTEP
      mov.i  }s1,>s1
      mov.i  }s1,>s1
s2:   spl.b  @s2,}BSTEP
s2a:  mov.i  }s2,>s2
s3a:  mov.i  {s2,<s3
s3:   jmp.b  @s3,>CSTEP
 
END